home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / clast13.zip / LC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-11  |  2KB  |  152 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     Int      INT001
  26.     Int      INT002
  27.     Int      INT003
  28.     Int      INT004
  29.     Declare  Procedure PROC001(Int INT005, Int INT006, Int INT007, Int INT008)
  30.     Declare  Procedure PROC002()
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     INT002 = 5
  35.     DispFile PPEPath() + "lc.ans", 1
  36.     INT003 = GetX()
  37.     INT004 = GetY()
  38.     If (Exist(PPEPath() + "caller.dat")) Then
  39.         FOpen 1, PPEPath() + "caller.dat", 0, 0
  40.         For INT001 = 1 To 13
  41.             PROC002()
  42.             If (STRING002 <> "") PROC001(7, 15, 9, 7)
  43.             INT002 = INT002 + 1
  44.         Next
  45.         FClose 1
  46.     Endif
  47.     AnsiPos INT003, INT004
  48.     Color 7
  49.     End
  50.  
  51. ;------------------------------------------------------------------------------
  52.  
  53.     Procedure PROC002()
  54.  
  55.     FGet 1, STRING001
  56.     STRING004 = Left(STRING001, 9)
  57.     STRING001 = Right(STRING001, Len(STRING001) - 9 - 1)
  58.     STRING005 = Replace(Left(STRING001, 5), "0", "O")
  59.     STRING001 = Right(STRING001, Len(STRING001) - 5 - 1)
  60.     STRING003 = Left(STRING001, InStr(STRING001, "|") - 1)
  61.     STRING001 = Mid(STRING001, InStr(STRING001, "|") + 1, Len(STRING001) - InStr(STRING001, "|"))
  62.     STRING002 = Left(STRING001, InStr(STRING001, "|") - 1)
  63.     STRING001 = Mid(STRING001, InStr(STRING001, "|") + 1, Len(STRING001) - InStr(STRING001, "|"))
  64.     STRING006 = Replace(STRING001, "0", "O")
  65.  
  66.     EndProc
  67.  
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     Procedure PROC001(Int INT005, Int INT006, Int INT007, Int INT008)
  72.  
  73.     Color INT005
  74.     AnsiPos 5, INT002
  75.     Print STRING005
  76.     Color INT006
  77.     AnsiPos 13, INT002
  78.     STRING002 = Left(STRING002, 19)
  79.     Print STRING002
  80.     Color INT005
  81.     AnsiPos 37, INT002
  82.     STRING003 = Left(STRING003, 19)
  83.     Print STRING003
  84.     Color INT007
  85.     AnsiPos 62, INT002
  86.     Print STRING004
  87.     Color INT008
  88.     AnsiPos 74, INT002
  89.     Print STRING006
  90.  
  91.     EndProc
  92.  
  93.  
  94. ;------------------------------------------------------------------------------
  95. ;
  96. ; Usage report (before postprocessing)
  97. ;
  98. ; ■ Statements used :
  99. ;
  100. ;    1       End
  101. ;    6       Color 
  102. ;    3       Goto 
  103. ;    17      Let 
  104. ;    5       Print 
  105. ;    3       If 
  106. ;    1       DispFile 
  107. ;    1       FOpen 
  108. ;    1       FClose 
  109. ;    1       FGet 
  110. ;    6       AnsiPos 
  111. ;    2       EndProc
  112. ;
  113. ;
  114. ; ■ Functions used :
  115. ;
  116. ;    7       +
  117. ;    8       -
  118. ;    1       <>
  119. ;    1       <
  120. ;    1       <=
  121. ;    2       >=
  122. ;    2       !
  123. ;    2       &&
  124. ;    1       ||
  125. ;    4       Len(
  126. ;    2       Mid()
  127. ;    6       Left()
  128. ;    2       Right()
  129. ;    6       InStr()
  130. ;    2       Replace()
  131. ;    3       PPEPath()
  132. ;    1       Exist()
  133. ;    1       GetX()
  134. ;    1       GetY()
  135. ;
  136. ;------------------------------------------------------------------------------
  137. ;
  138. ; Analysis flags : No flag
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;
  142. ; Postprocessing report
  143. ;
  144. ;    1       For/Next
  145. ;    0       While/EndWhile
  146. ;    1       If/Then or If/Then/Else
  147. ;    0       Select Case
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;                 AEGiS Corp - Break the routines, code against the machines!
  151. ;------------------------------------------------------------------------------
  152.